<%
'--------------------------------------------------------------------------------------------
'Questa funzione serve a controllare che i file singoli non siano
'richiamati dal browser ma solo da OpenAsp, nel caso in cui il browser tenta di aprire tali file
'l'utente viene subito rimandato alla homepage del sito
'splitto la stringa SQL per recuperare la pagina che si cerca di aprire
i = split(request.ServerVariables("HTTP_URL"), "/")
'confronto il nome del modulo con la funzione Ubound che mi restituisce il massimo
'valore dell'array, quindi il nome della pagina richiesta dall'utente, se coincidono
'rimando alla index
if strComp("movebloc.asp", i(Ubound(i)), 1) = 0 then
  response.redirect request.servervariables("HTTP_REFERER")
end if
'--------------------------------------------------------------------------------------------
%>
<%

'---------LIMITO IL BLOCCO SOLO AL SUPERADMIN----------
Call onlySADM()
'------------------------------------------------------

if session("LivelloUser") = 2 OR isADM(session("uID"), "forum") then
Call moveBloc(request.querystring("ID"), request.QueryString("pos"), request.QueryString("lr"))
response.redirect ("default.asp")
else
   x = "95%" 'passo il parametro larghezza alla tabella
	 Response.Write "<table width='95%' border='0'>"&vbNewLine
	 Response.Write "<tr><td class=""testo"" width=32 valign=top><img src="""& imgFolder &"/icon_info.gif""></td><td align=""center"">"
	 Response.Write "<font class=""testo"">" & ling_forum_66
	 CALL segnalaTentativo(session("uID"), request.ServerVariables("REMOTE_ADDR"), ling_forum_121)
	 CALL autoReturn("default.asp", 2)
	 Response.Write "<br /><a class=testo href=""default.asp"">" & ling_forum_62 & "</a>"	 
	 Response.Write "</font></td></tr></table>"
end if
%>